64'er Special 20/64er_Magazin_Sonderheft_20_19xx_Markt__Technik_de_Side_A.d64/listing 22

Commodore BASIC | 2022-10-26 | 962b | 31 lines

10 printchr$(147):for i=0 to 63:poke 832+i,0:next
20 gosub 60000
999 end
60000 data ".........[209][209][209][209][209][209][209]........"
60001 data ".......[209][209][209][209][209][209][209][209][209][209][209]......"
60002 data "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
60003 data "......[209][209][209][209][209]...[209][209][209][209][209]....."
60004 data ".....[209][209][209][209][209].[209][209][209]..[209][209][209][209]...."
60005 data ".....[209][209][209][209][209].[209][209][209].[209][209][209][209][209]...."
60006 data ".....[209][209][209][209][209].[209][209][209]..[209][209][209][209]...."
60007 data "......[209][209][209][209][209]...[209][209][209][209][209]....."
60008 data "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
60009 data "......[209][209][209][209][209][209][209][209][209][209][209][209][209]....."
60010 data "......[209].[209][209][209][209][209][209][209][209][209].[209]....."
60011 data ".......[209].[209][209][209][209][209][209][209].[209]......"
60012 data ".......[209]..[209][209][209][209][209]..[209]......"
60013 data "........[209]..[209][209][209]..[209]......."
60014 data "........[209]..[209][209][209]..[209]......."
60015 data ".........[209]..[209]..[209]........"
60016 data ".........[209]..[209]..[209]........"
60017 data "..........[209][209][209][209][209]........."
60018 data "..........[209][209][209][209][209]........."
60019 data "..........[209][209][209][209][209]........."
60020 data "...........[209][209][209].........."
60100 v=53248:poke v,200:poke v+1,100:poke v+21,1:poke v+39,14:poke 2040,13
60105 poke v+23,1:poke v+29,1
60110 for i=0 to 20:read a$:for k=0 to 2:t=0:for j=0 to 7:b=0
60140 if mid$(a$,j+k*8+1,1)="[209]" then b=1
60150 t=t+b*2^(7-j):next:print t;:poke 832+i*3+k,t:next:print:next
60200 return